home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 August / 1992-08.d64 / tag it (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  71 lines
  1. 0 clr
  2. 10 rem-z
  3. 20 poke53280,0:poke53281,0:poke646,3:print"[147]tag it working....."
  4. 30 sa=49152
  5. 40 ea=sa+375
  6. 50 rem-poke it in
  7. 60 fori=satoea:read d:ck=ck+d:pokei,d:next
  8. 70 ifck<>46139thenprint"error in data ststements":end
  9. 80 rem-relocate
  10. 90 fk=sa+376
  11. 100 h1=int((sa+13)/256):l1=(sa+13)-h1*256
  12. 110 h2=int((sa+341)/256):l2=(sa+341)-h2*256
  13. 120 h3=int((sa+342)/256):l3=(sa+342)-h3*256
  14. 130 h4=int((sa+376)/256):l4=(sa+376)-h4*256
  15. 140 pokesa+02,l1:pokesa+07,h1
  16. 150 pokesa+56,l2:pokesa+57,h2
  17. 160 pokesa+61,l2:pokesa+62,h2
  18. 170 pokesa+66,l3:pokesa+67,h3
  19. 180 pokesa+96,l4:pokesa+97,h4
  20. 190 pokesa+107,l4:pokesa+108,h4
  21. 200 :
  22. 210 rem-fn keys
  23. 220 f$(1) ="poke53280,1:poke53281,2:poke646,3"+chr$(13)
  24. 230 f$(2) ="function key 2"
  25. 240 f$(3) ="list:"+chr$(13)
  26. 250 f$(4) ="run:"+chr$(13)
  27. 260 print
  28. 270 for r=1 to 4 :iff$(r)=""thenf$(r)=" "
  29. 280 next
  30. 290 for r=1to4:l=l+len(f$(r)):next:   ifl>250thenprint"fn keys too long":end
  31. 300 tt=-1:for r=1to4
  32. 310 fori=1tolen(f$(r))
  33. 320 t$=mid$(f$(r),i):tt=tt+1:pokefk+tt,asc(t$)
  34. 330 nexti
  35. 340 tt=tt+1:pokefk+tt,0
  36. 350 nextr
  37. 360 ea=ea+l+5
  38. 370 rem-activate
  39. 380 syssa
  40. 390 print"activated    "
  41. 400 print: print"located at :";sa;" - ";ea
  42. 410 print:print"save object file (y/n) ?":poke198,0:wait198,1:geta$
  43. 420 ifa$<>"y"thenend
  44. 430 print: input"filename";f$
  45. 440 rem-save obj file
  46. 450 sys57812f$,8:poke173,sa/256:poke172,sa-peek(173)*256:poke780,172
  47. 460 poke782,ea/256:poke781,ea-peek(782)*256:sys65496
  48. 470 rem-data
  49. 480 data120,169,011,141,143,002,169,192,141,144,2,88,096,173,141,002,201,002,240
  50. 490 data  013,201,006,208,006,169,000,133,212,133,216,076,072,235,165,212,208
  51. 500 data  249,165,216,208,245,165,157,240,241,165,203,133,002,169,064,133,203
  52. 510 data  165,002,205,083,193,240,226,141,083,193,160,000,185,084,193,197,002
  53. 520 data  240,012,200,192,034,208,244,165,002,133,203,076,072,235,192,004,176
  54. 530 data  048,162,255,200,136,240,011,232,189,118,193,201,000,208,248,136,208
  55. 540 data  245,232,189,118,193,201,000,240,020,201,013,240,007,032,202,241,232
  56. 550 data  056,176,238,169,013,141,119,002,169,001,133,198,076,072,235,192,008
  57. 560 data  176,089,132,002,165,207,240,012,165,206,174,135,002,160,000,132,207
  58. 570 data  032,019,234,165,211,133,251,169,000,133,212,133,216,133,199,133,211
  59. 580 data  164,002,192,004,208,003,056,176,032,192,005,208,007,169,039,133,211
  60. 590 data  056,176,021,192,006,208,007,169,019,133,211,056,176,010,169,024,133
  61. 600 data  214,032,108,229,076,072,235,165,251,201,040,144,007,024,165,211,105
  62. 610 data  040,133,211,076,072,235,152,024,105,057,133,253,165,043,133,002,165
  63. 620 data  044,133,003,160,000,177,002,133,004,200,177,002,133,005,200,177,002
  64. 630 data  133,251,200,177,002,133,252,200,177,002,201,143,208,056,200,177,002
  65. 640 data  201,045,208,049,200,177,002,197,253,208,042,169,141,032,202,241,169
  66. 650 data  076,032,202,241,169,201,032,202,241,166,251,165,252,032,205,189,169
  67. 660 data  045,032,202,241,169,058,032,202,241,169,013,141,119,002,169,001,133
  68. 670 data  198,096,165,004,133,002,165,005,240,005,133,003,056,176,159,096,064
  69. 680 data  004,005,006,003,047,044,055,007,010,028,020,018,014,021,026,029,033
  70. 690 data  034,037,042,036,039,038,041,062,017,013,022,030,031,009,023,025,012
  71.